RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**FILE**1D**NDXINI 
NN NN DDDDDDDD XX XX IIIIII NN NN IIIT] 
NN NN DDDDDDDD XX XX H1111 NN NN IIIT! 
NN NN DD DD XxX XX I] NN NN II 
NN DD DD XX XX I] NN I] 
NNNN NN DD DD XX = XX I] NNNN NN II 
NNNN NN DD DD XX XX I] NN NN II 
NN NN DD DD XX I] NN NN NN II 
NN NN NN DD DD XX I] NN NN NN I] 
NN NNNN DD DD XX = XX I] NN NN II 
NN NNNN DD DD XX = XX I] NN NNNN II 
NN NN DD DD XxX XX I] NN NN II eeee 
NN NN DD DD XX Xx I] NN NN II eeee 
NN NN DDDDDDDD XX XX III! NN NN III eeee 
NN NN DDDDDDDD XX XX I1iiI! NN NN 1111 eee 
LL IIIT] SSSSSSSS 
LL IIIT] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL Hi! SSSSSSSS 
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NDXINI == Once only initialization and global d 16-Sep-1984 01:02:3 AX-11 Bliss-32 V4.0-74 Pa 1 y 
8 19-808- 1382 94:96:74 RUNOFF CSREINDKING cL 104 - (1) v04 
ZTITLE "NDXINI == Once only initialization and global data’ 
° MODULE NDXINI. (IDENT = *Yod-0p0) ° 
a %BLISS32 C, ADDRESSING_MODE (EXTERNAL = LONG_RELATIVE, NONEXTERNAL = LONG_RELATIVE)] 
BEGIN 


' 
PETS ESSE TIT ITT TTT Te TIT TTT TTT errr rrr ier t irri i iii ii ii iti tii iititiiitiiizy 


Ie 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
i ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
CORD H_THE 


OoOoooooceo 


ARIPONIMOMONOMONONUND 2 2 3 2 3 3 333 GOOOOO 


oo 
DAA 


t U 
Rodi tied NDXPAG fo change the NULL fottouta each entry to a 
space if LAYOUT is SEPA att or to a comma otherwise and to 

® 


generate and output telltales. 


: 
4 3 
5 : 

$ 1 : 

1 : 

1 : 

1 % : 

0 1 + : 
0 1 . : 
¢ } ® ; 
1 * ; 
014 1! * $ 
015 1 !* ONLY IN AC ANCE WITH THE TERMS OF SUCH LICENSE AND WIT * : 
0 § 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTH ® : 
86 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ; 
0 8 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * . 
89 | \ :* TRANSFERRED. * ; 
:* © 3 

0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 2 
83 Z : :* CORPORATION. sd : 
:* ® 3 

0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
65 g } :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * ; 
. * : 

1 !® * : 

09 $ 1 Lee ARA RARER RARER AAAS P+ 
1! 3 

0031 1 : 
b03§ 1 ++ A 
i 1! FACILITY: : 
ooee } DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility ; 
ite 1 ! ABSTRACT: 3 
i t4 } : This module contains once only initialization code and global data. : 
0039 1 ! ENVIRONMENT: transportable F 
0040 1! 3 
0041 1 ! AUTHOR: JPK ; 
BR0g 1! : 
Boe? ! : CREATION DATE: December 1981 ‘ 
$048 1 ! MODIFIED BY: : 
Bne$ 1! $ 
047 1! 005 JPK00017 23-Feb-1983 : 
0048 1! Modified NDXINI to initialize the zero'th entries of LLINES, 3 
049 1! RLINES and TLINES which is where the telltale strings are 3 
050 1! stored by NDXFMT. 3 
1 ! Modified NDXFMT to write appropriate prologue for /TELLTALE, : 
gii ; 
4 1! : 

7 (ee : 
1} 3 
ai 


Ss SSS Sse eee _— 


ee 


" 1 NDXINI == Once only initialization and global d tb selon 9}: 96: ‘| AMOR SRE INDRING Sut Page as 


3 38 é 1! 004 JPK00015 04-Feb=-1 

; 1! Cleaned up module n nanes, 783 sitted revision nietery to 

3 o9 ? ! conform with established standards. Updated copyright dates. 
: 6 O6¢ 1! 003 Hoek ea 24-Jan-1983 

ch. = 65 1! Modif 9 to cs“. per Foraence. The sort buctete have each 
; 3664 64 1! geen sb ided into 27 sub-buckets; 1 for each letter and 1 

s 65 65 1! ngncalpngs. Removed reference to BUCKET from INDEX. 
 @ 4 1! borin tion of the structure was added to NDXPOL. References 
4 24 $494 : } to eed ywere changed in modules NDXOUT, NDXINI, NDXFMT 

: 69 069 1 i ee 

3 0 o s 4 002 JPK00005 24-Sep-1982 

: 4 0072 ; Removed definition of PCURF WD in NDXINI. No Longer needed. 

2 0073 1 i-- 


vet NDXINI == Once only initialization and global d 16- sen-1944 03:86:33 Hereaee tat ind ey: ore Page 3 


TABLE OF CONTENTS: 


FORWARD ROUTINE 
NDXINI : NOVALUE; ! Once only initialization routine 


1 
1 
1 
1 
! 
: ; INCLUDE FILES: 
1 
1 
1 
1 
1 
1 


LIBRARY ‘NXPORT:XPORT'; 
SWITCHES LIST (REQUIRE); 
REQUIRE ‘REQ:NDXCLI'; 


fejejelq) 
020909 0909 0909098 NINN NII 


DONOVUE WN" OODONOU 
NOME" OOONOUS 


Oe Oe Oe Oe Oe Os Os Os ws Oe Oe Os Oe ee 
BCOCOCD COCO COMO NINN 


oO 


04-000 NOKINI == Once only initialization and global 4 Jf se] 2338349 YSESSSoUA28!cRunbF# oskeSwoxcit.rea; "°° 


es 


: IDENT = 0V04-00004 


' 
PAPEL SSSS IIIS IIIT TTT TTTT TTI TT TTT Trice ceri i tii iri iii ti tii iii iii tiitiiiiiiiy 


and NDXCLIDM 


002 REROROE 20-Ja one1963 
fied VMS command Ling nterface module NDXVMS: 
= changed /FORMAT qualif 


3 1 ; 
$ 1 3 
3 1 3 
3 on 'e 3 
: RO ¢ 1 '* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 3 3 
3; kROOOS 1 '® DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. ® ’ 
3 si : i: ALL RIGHTS RESERVED. . : 
: RNS 1 ie THIS SOFTWARE IS FUR NISHED UNDER A LICENSE AND MAY BE USED AND copiee * : 
; ROO9? 1 ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH at wee AND WITH THE * 3 
3; ROOS8 1 ie INCLUSION OF THE ABOV E COPYRIGHT pons THIS sort OR ANY OTHER * ; 
; ROR? 1 ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE RA VATLABLE TO ANY * ; 
; kO100 1 '@ QTHER PERSON. NO TITLE TO AND SE ERSHIP OF THE SOFTWARE IS HEREBY * ; 
¢ ROIOT | is TRANSFERRED. . ; 
: ROIS 1 it THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
3 ROI06 1 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * $ 
3 ROI09 | is CORPORATION. . ; 
3 'e 3 
; Roos 1 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 3 
; kO108 1 'w SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
3; kRO1O9 1 '® 7 3 
: ROW0 1 ie ‘ ; 
; ROW 1 PSST E SIS I EIST TTT TTT TTT Tere ere irri tiie irri titi iti iii i iii iiiiit 3 
3 RO11 1 ! $ 
3 Ror 1 3 
3; RO114 1 'e+ $ 
; RO11S 1 ! FACILITY: 3 
: not ig } DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility : 
; ROIS 1 | ABSTRACT: INDEX command Line definitions ; 
: RO} 9 1 ; ENVIRONMENT: Transportable : 
> ROI é 1 i AUTHOR: JPK : 
; =RO1 1 ! 3 
: Rat ¢ ' CREATION DATE: January 1982 : 
> ROI 6 1 i MODIFIED BY: : 
; =6©RO!I 1 ! $ 
3 RO128 1 ! 004 JPKO00015 04-Feb-1983 3 
; RO129 1 ! Cleaned up module names, modified revision nistery Se : 
3 ant ? i conform with established standards. Updated copyright dates. : 
> oR 133 1 i 003 JPK00011 24-Jan-1983 ; 
: ROWS 1 i Changed CMDBLK [NDX$G LEVEL] to CMDBLK CNOXSH LEVEL : 
3; =©RO1 1 ‘ Changed CMDBLK NDXSH_ tORRAT to CMDOBLK NDXSA_L YOUT) 3 
; kROUSS 1 : Enenged Oe NDX$V~ Wee and res NDX Koy tex to CMDBLK CNDXS$H_FORMAT) é 
3 ROI 1 ! anged compar isons of (.CHRSIZ Fou CHRSZA) 3 
3; =6ROI 1 ! Cea Le XSH_FORMAT) EQL TMS! 3 
3; ROW38 1 ! Definiti ons were changed in NDXCLT and references to t 3 
; RO , : effected f esés were changed in NDXPAG, NDXFMT, INDEX, MeDXVNS : 
: ee, : 3 
7 1 ' e 
; 3 j i : 
3 4 1 ‘ : 


ier to /LAYOUT. 


—> tt ts 
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Fun OVOOnou 


se Ss tt ts 


NDXINI == Once only initialization and global d 18-Sep-1984 91:09:34 Ves seo bAS B*rivelet sae NOXCLI.REQ: are ge as 


- = Sagede use of /RESERVE and PRE OUIRE for DSRPLUS. 
gen kre HER for ney DSRPLUS qualifiers /FORMAT and 
ndged. at yolgs te NDXCLI “for new qualifiers: NDX$V TELLTALE 


ane ets a output of NDXSV_PAGE_MERGE in NDXCLIDMP to 
account for different DSR and DSRPLUS default values. 


<i 
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NDXINI == Once only initialization and global d 1§-sep-1984 93:06:7) 


t 

i NDXCMD_FIELDS 

SFIELD ndxcmd_fields = 
SET 


NDX$V_OPTIONS = CSINTEGER], 
SOVERLAY (NDX$V_OPTIONS) 
NDXS$V_INPUT_CONCAT = ($B1T), 
NDX$V_OUTPUT = ($B81T), 
NDXSV_-REQUIRE = ($B1T), 
DXS$V_PAGES = [$B1TJ, 
NDX$V_OVERRI = ($B1T), 
NDX$V_STANDARD_PAGE = ($B1T), 
NDX$V_ CONTINU = ($811), 
NDX$V_GUIDE = ($81T), 
NDX$V_WORD_SORT = ($B1T), 
NDX$V_LOG = ($B1T), 
NDX$V_MASTER = ($81T), 
NDX$V_PAGE_MERGE = ($8ITI, 
NDXS$V_TELLTALE = ($B1T), 
SCONTINUE 
NDXSH_FORMAT = CSSHORT_INTEGER], 
NDX$H_LAYOUT = C$SHORT_INTEGER], 
NOX$H_ LPH = CSSHORT_INTEGER), 
NDXSH_LEVEL = CS$SHORT INTEGER], 
NDX$G_COLUMN_WID = CSINTEGER), 
NDX$G_GUTTER_WID = CSINTEGERJ, 
NDX$G_LINES PAGE = C(SINTEGERJ, 
NDX$G_RESERVE_ LINES = CSINTEGERJ, 
NDX$G_SEPARATE WIDTH= CSINTEGER 
XST-MASTER_BOOK = CSDESCRIPTOR(DYNAMIC) 
NDOX$T_INPUT_FILE = (SDESCRIPTOR(DYNAMIC) 
NDXST_OUTPUT FILE = CSDESCRIPTOR(DYNAMIC) 
NDX$T-REQUIRE_FILE = CSDESCRIPTOR(DYNAMIC) 
NDXST_RELATED_FILE = CSDESCRIPTOR(DYNAMIC) 


NDX$T_COMMAND_LINE 
TES; 


End of NDXCMD_FIELDS 


LITE 
MAC 


SLITERAL 
TMS11_A 


CSDESCRIPTOR(DYNAMIC)) 


RAL 
NDXCMDSK_LENGTH = SFIELD_SET_SIZE; 


: Run 
! TMS=A 


' 
. 
7 
o 
' 
° 
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7 
' 
7 
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VAX=11 Bliss-32 V4,0-74 
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-Sep-1 $DUA2 


Command option indicators: 


Input file concatenated to previous 
Generate oytpus file 

Require file specified 

Include page references in index 
Override master index information 
Generate standard page numbers 
Generate continuation headings 
Generate guide headings 

Sort entries word by word 
Senerate /LOG message 

Generate a master index 

Merge adjacent page references 
Generate telltale headings 


Output format: DSR, TMS, TEX 

Output Layout tyoe 

Treatment of leading nonalphas during sort 
Deepest level to include in index 

Column width 

Gutter width 

Lines per page 

Number of lines to reserve when requiring a file 
idth of reference portion of entry 

! Book name descriptor for Master indexing 

' Input file name descriptor 

' Output file name descriptor 
Require file name descriptor 
' 

' 


Related file name descriptor is saved here 
ty NDXINP for later use by MAKNDX 
Copy of entire command Line 


RO 
SNDXCMD = BLOCK CNDXCMDSK_LENGTH] FIELD (NDXCMD_FIELDS) %; 
, Output formats (NDXSH_FORMAT) 
) 


Page 6 


: CRUNOFF .SRCJNDXCLI.REQ;1 (2) 
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IN NDXINI == Once only initialization and global d 16-Sep-1984 01:02:31 VAX-11 Bliss-32 V4.0-74 Pa 7 
ty00 o ° 192$3b-1882 93:08: 7) | Bese esas rRe bee SRC uoxcur reast om «25 


Ss 


< 
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; RO 1g 1 TMS11_E = $DISTINCT, | TMS=E 

: ~ iz ; TEX = $DISTINCT; ! TEX 

: RO21S 1 SLITERAL ! Output Layouts (NDX$H_LAYOUT) 

; ® 1 1 COL = SDISTINCT, ! Normal two column format 

; RO217 1 ONE _ COLUMN = $DISTINCT, ! Normal one column format 

; ROIS 1 SEPARATE = $DISTINCT, ! seperate reference format 

; : 1 : GALLEY = $SDISTINCT; ! TMS11 Galley format 

: RO 1 SLITERAL ' phe t poe of leading nonalphas during sort (NDX$H_NONALPHA) 
; =RO 1 BEFORE = $DISTINCT, ! Leading nonalphas sort before prpnes 
; Re 1 AFTER = $DISTINCT, ! Leading nonalphas sort after alphas 
3 RS ¢ : IGNORE = $SDISTINCT; ! Leading nonalphas are ignored 

: RO226 1 

; RO227 1 le< End of NDXCLI.REQ 
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558 : REQUIRE ‘REQ:NDXXPL'; 


AX=11 Bliss-32 V4.0 
RUNOFF ..SRCJNDXINI.B 


-., 
SEHla «EHIME = Ome entySntetttzaron od olbel «HhtoemiS BIH) YASH BURA allman. wees" 


! Version: *v04-000' 


i geeeeeeeeeeeeeeeeeeeeeeeeeKeeeeeeeneenereeeenereeneeeeeeeeeeeeeeeeeereeeeene 
'@ 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

'® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. 
'‘® ALL RIGHTS RESERVED. 


!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
» PRNSFERRES « NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


t® THE INFORMATION IN THIS SOFTWARE IS SUBJE 
:* AND SHOULD NOT BE CONSTRUED AS A COMM 
!t CORPORATION. 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


2D 
oO 
Wr 


DD 
uw 


CT TO CHANGE WITHOUT NOTICE 
ITMENT BY DIGITAL EQUIPMENT 


® 
* 
we 
® 
® 
® 
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* 
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® 
® 
® 
*® 
® 
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PETIITITILILI LILI LLL LL ELLE L TLL TTL iiiiiiiiiiiiiiitii tii 
| 
'e¢ 
FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
ABSTRACT: 
This file contains definitions of data structures used to support 
the extended indexing features of the DSRPLUS INDEX program. 
ENVIRONMENT: Transportable BLISS 
AUTHOR: J.P. Kellerman 
CREATION DATE: January 1982 
MODIFIED BY: 
002 KAD00002 Keith Dawson 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS (ibrary. 


SOWONAUNEWN HOO OVNOUE WN O0O@ 


! Extended INDEX attributes block. 
SFIELD XPL_FIELDS = 
SET 


XPL$V_OPTIONS = CSINTEGER), ! Attributes options 
SOVERLAY (XPL$V_OPTIONS) 


Be Se Se Ge Se Ge Ge Ge Ge Fe Se Ge Ge Ge Fe Se Fe Ge Be Ge Se Ge Fe Ge Ge Se Fe Ge Ge Ge Ge Ge Se Ge Se Se Ge Se Se Ge Ge Ge Se Se Se Se Ge Se Se Se Se Se Se Fe Se tee 
DDD 
oooo 
POPOPONY: 
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NDXIN NDXINI == Once only initialization and global d IB-se 1984 01:02: VAX=11 Bliss<-32 V4.0-74 Page 10 
vo6-000 . 1eSep-19be 93:98:35 — VSBSEEDGASEStaGNrE sRCSNDxxPL nea: 1 2% cS 
; RO287 1 XPL$V_VALID = ($81T), ! Attributes block contains valid information. 
; RO288 1 XPL$V_BOLD = ($B1TJ, ' Bold page reference. 
2 1 XPL$V_UNDERLINE = [$B1TJ, ! Underlined page reference. 
; OR 1 XPL$V_BEGIN = [$8ITJ, ! Begin page range. 
; RO291 1 XPLS$V_ = ($BITJ, ! En page range. 
3; 3 1 XPLSV_MASTER = [$81TJ, ! Master index entry. 
; RO29S 1 XPLSV_PERMUTE = ($B1TJ, ! Permute index nd 
: R094 1 XPL$V-NOPERMUTE = [$B1T3, i Set if permute explicitly forbidden. 
; RO29S 1 XPLS$V_SORT = ([$B1TJ, ' Set if SORT string present. 
3 Re 38 : XPL$V_APPEND = ($B1TJ, ! Set if append string present. 
; Re 38 ! SCONTINUE 
; ROS00 1 XPL$T_SORT = Paceecninron (evmanicya: ' SORT string. 
3 4 4! : XPLST_APPEND = CSDESCRIPTOR(DYNAMIC) ! APPEND string. 
; RO 08 1 TES; 
; RO304 1 
; kRO30S5 1 LITERAL 
3 site: 1 XPLSK_LENGTH = SFIELD_SET_SIZE; 
; kRO307 1 
; kO308 1 MACRO 
3 itd : $XPL_BLOCK = BLOCK CXPLSK_LENGTH] FIELD (XPL_FIELDS) %; 
; RO311 1 : 
3 Roig 1 ! Macros for INDEX_ATTRIBUTES flags 
; sith 1 : 
; RO3S14 1 MACRO 
; RO315 1 XPLUS$V_VALID = 0,0, 1,0%, ! Set if attributes data is valid. 
: moig 1 XPLUS$V_BOLD =0, 1, 1,0%, ! Set if page reference is bolded. 
; RO317 1 XPLUSSV_UNDERLINE = 0, ¢° 1,0%, ! Set if page reference is underlined. 
; RO318 1 XPLUSS$SV_BEGIN = 0, 35, 1,0%, ! Set if entry begins a page range. 
; kRO319 1 XPLUSSV_ = 0,4, 1,0%, ! Set if entry ends a page range. 
; kO320 1 XPLUSSV_MASTER = 0,5, 1,02, ! Set if master index entry only. 
; RO3¢1 1 XPLUSSV_PERMUTE = 0, 6, 1,0%, ! Set if entry is to be permuted. 
; «ROS § 1 XPLUSSV_NOPERMUTE = 0, 7, 1, 0%, ! Set if permute is qxpl icity forbidden. 
; kRO3235 1 XPLUSSV_SORT = 0, 8 1,0%, ! Set if entry contains a SORT string. 
3 Rosse ' XPLUS$V_APPEND = 0, 9, 1,0%; ! Set if entry contains an APPEND string. 
; RO326 1 : End of NDXXPL.REQ 
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32 8358 REQUIRE "REQ:NDXPO! '; 
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-Sep-1 VE554 


1 
! Version: "v04-000' 


OPES SESESSSI STITT TTT TET TT Terrie retire rrr titi citi t iti iti iii iii iii iitiitiit 


'® ® 
is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ® 
is ALL RIGHTS RESERVED. . 
: * 
'® te SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF S ® 
:* IN cL USION OF THE ABOVE COPYRIGHT NOTICE. TH * 
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'e4 
i FACILITY: 
i DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 


ABSTRACT 
This file contains Literals and macros defining the data structures 
found in the internal index pool 


ENVIRONMENT: Transportable 
AUTHOR: JPK 
CREATION DATE: January 1982 
MODIFIED BY: 
003 JPK00015 04-Feb-1983 
Cleaned up module a modified revision misters to 
conform with established standards. Updated copyright dates. 
002 JPK00009 24-Jan-1983 
Modified to enhance performance. The sort buckets have each 


been divided into 27 sub-buckets; 1 for each letter and 1 
for non-alphas. Removed reference to ary {roe INDEX. 


Definition of the structure was added to NDXP References 
ce DEE) wore changed in modules NDXOUT, NOXINI, NDXFMT 
an 


$DUA28 ? RUNOFF . she NDXPOL .REQ; i? 
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ve 
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NDXIN NDXINI == Once only initialization and global d 1b-se -1984 01:02:31 VAX-11 Bliss-32 V4.0-74 
yO. 000 . 9 1 =300 138% 94:96:34 $25 oO ASE tRGw ee sae NOXPOL.REQ:1°°% df 
! Index entry 


SFIELD XE_FIELDS = 
SET 


; 1 $ 
; 1 3 
: i é 
: RO390 1 : 
; RO391 1 XESA_PREV = CSADDRESS], ' Link to previous it : 
; kRO392 1 KESA_NEXT = [SADDRESSJ, ' Link to next item a ; 
; kRO393 1 XESA_SUBX = [SADDRESSJ, ' Sub index pointer : 
3 RO394 1 XESA_REF = [SADDRESS]), ! Reference pointer , 
; ROS9S 1 XESA_TEXT = [SADDRESSJ, ! Pointer to text of index item : 
; RO a8 1 XESA_SORT_AS = [SADDRESS ! Pointer to SORT_AS string ‘ 
i R 4 XESH~SUBC = CSSHORT_INTEGER, i Sub index level : 
; RO399 XESV_FLAGS = CSSHORT_INTEGER],  ! Entry flags : 
; ROOT 4 SOVERLAY (XESV_FLAGS) ; 
: ROGOS 1 XESV_BARS = ($B1TI, Ch ; 
: ROCOL J Change bar flag : 
; RO4OS 1 SCONTINUE ; 
3 944 1 : 
: vet 4 } XESA_BOOK_LIST = CSADDRESS) ! Master index book name List ; 
i R0409 1 SALIGN (FULLWORD) 3 
; ROOT 1 TES; ; 
; Roets | LITERAL : 
; R041 XESK_LENGTH = SFIELD_SET_SIZE; : 
: ROGIG | MACRO : 
3 R061? $XE_BLOCK = BLOCK CXESK_LENGTH] FIELD (XE_FIELDS) %; : 
; RO419 1! End of Index entry 3 
> RO421 1 
: ane § : ! Reference entry : 
; R04 4 1 SFIELD XX_FIELDS = : 
> ROG $1 ; 
; ROG 1 XXSA_LINK = tend 3b ! Link to additional entries : 
3; «ROG : 1 XX$A_APPEND = CSADDRESS ! APPEND text pointer 3 
; Ros i XX$H~PAGE = CSSHORT_INTEGER), i Transaction number : 
; ROS1 1 XX$V_FLAGS = CS$SHORT_INTEGER), ! Display attributes : 
; ROG § SOVERLAY (XXSV_FLAGS) 3 
> RO435 1 Xx$V_BOLD = ($811), ' Bold page reference ; 
5 ae 1 XXSV_UNDERLINE = (CS$BITJ, ! Underline page reference : 
; OR 1 XX$V_BEGIN = ($B1TJ, : pegin page range é 
3 Roe : XXSV~END = ($B81TJ, ! End page range : 
: RO640 1 SCONTINUE 
3 RO441 1 $ 
3 ROG42 1 XX$A_BOOK = CSADDRESS) ! Master index book name : 
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pase cane agnn Conarastap amnsee hak per: if: sep-196 93:98:32 VSSSSSDUADE: 8: CRUNOFF . SRC NDXPOL .REQ;1 (1) 


-Sep-1 


H 1 

>; ROGG4 1 SALIGN (FULLWORD) 

; RO44S 1 

3 ROGGE 1 TES; 

; ROG47 1 

; ROGGE 1 sag 

; ~ 128 : XXSK_LENGTH = SFIELD_SET_SIZE; 

; RO431 1 MACRO 

3 4) § : $XX_BLOCK = BLOCK CXXS$K_LENGTH] FIELD (XX_FIELDS) %; 

; ~ 34 1 ! End of Reference entry 

3 sot | 1 

; ROGS7 1 ! Master index book reference entry 

; kROGSB 1 

3 ROGSD 1 SFIELD XM_FIELDS = 

; RO460 1 SET 

; RO461 1 

3 aes 1 XMSA_LINK = [SADDRESS], ! Link to additional entries 
; ROG6S 1 XM$A_BOOK = CSADDRESSJ ! Pointer to book name 
3; ROG64 1 

3; ROG6S 1 TES; 

3 ROG66 1 

3 ROG67 1 LITERAL 

3 ROG6B 1 XMSK_LENGTH = SFIELD_SET_SIZE; 

; ROG69 1 

; RO470 1 MACRO 

; R067 SXM_BLOCK = BLOCK CXMSK_LENGTH] FIELD (XM_FIELDS) %; 

3 Roars 1 ! End of Master index book reference entry 

3 ROG74 1 

3 ROG75 1 

3 ROG76 1 ! Current Entry 

3 ROG77 1 

3; kROG78 1 SFIELD C_FIELDS = 

3 ROG79 1 SET 

; kO480 1 

; RO481 1 CSA_CURR = CSADDRESS], ' Pointer to current cell 
; RO482 1 C$A_PREV = CSADDRESS), ' Pointer to previous cell 
; 9 ! CSA_HEAD = CSADDRESSJ, !' Pointer to head of chain 
: Ros 5 } SALIGN (FULLWORD) 

: se P } CS$V_FLAGS = CSINTEGER), ! Current cell flags 

i: OR 1 SOVERLAY (C$V_FLAGS) 

; RO49O 1 

3 etd ! C$V_IDNS = ($B81T) ! Identical string flag 
3; (OR 38 1 SCONTINUE 

3 ROG9Q 1 

; RO49S 1 TES; 

: OR 38 1 

: ROD 1 LITERAL 

: : 38 ' CSK_LENGTH = SFIELD_SET_SIZE; 


< 
ov 
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MACRO 
SC_BLOCK = BLOCK CCSK_LENGTH) FIELD (C_FIELDS) 2%; 


! End of current entry 


4 
Dummy datasets 


LITERAL 
) 


S_X_ENTRY = XESK_LENGTH, 
DS-XR_ENTRY = XX$K_LENGTH, 
DS-XM-ENTRY = XMSK_LENGTH, 
DS-X_STRING = 0; 


! Structure definition for bucket array. 


Buckets are arranged so that each row represents the first letter of 
the string and each column represents the second letter of the string. 


This epproach is used only for master indexes as no performance 
improvement is realised until about 10 input files have been processed. 


Indexes which are not_master indexes use only the first element of 
each row, i.e., CO, 0) ... C26, 0). 


' 

i 

' 

i 

i 

i 

i 

' 

1 

i 

i 

i] 

! The only grcogtton is for porgishates is haracters which use only 

: element (0, 0J. Elements CO, 1] ... C0, 26] are not used since mapping 
' all nonalphabetics into one row loses the sort order of the first 

: character in the string. For nonalphabetics to work correctly in a two 
dimensional bucket scheme, the array would have to be at least 127 x 127 
' 

i 

i 

i 

i 

i 

i 

i 

S 


TRUC TURE 
SBUCKET_ARRAY CROW IDX, COL_IDX; M, NJ = 
CM = N * XUPVAC) ($BUCKET_ARRAY + (ROW_IDX * N + COL_IDX) * XUPVAL); 


{oo End of NDXPOL.REQ 
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i 3 O8¢? 1 REQUIRE *REG:PAGEN’; 
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; ROS4GS 1 ! : 
PF : 4 ! Version: *v04-000' : 
: R 1 i eeeeeeeeerereeereneeeeeeneeneeeeeeeeeeeeneeeerereeeeeereeeeeeeeneeeeeneeeeee : 
; ® ‘fe * ; 
3 ® 1 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * : 
3; ROSS4 1 ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * ; 
: Ree 5 : - ALL RIGHTS RESERVED. . : 
: OR : 1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
; OR 8 1 '® ONLY IN ACCORDANCE WITH THE OF SUCH LICENSE AND WITH THE * ; 
3; ® 1 '® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ‘ 
; kO560 1 '® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * ‘ 
3 i492 1 '* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
3 i 6¢ : » TRANSFERRED. . : 
: Roses 1 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ; 
; kROS65 1 't AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 3 
: R066 | is CORPORATION. e ; 
: RO208 1 iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
; RO28 1 '® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 3 
: Room is : 
. fe e 
: moore 4 PUTITILIII LILI LLLI LLL LLL LTT LLL iit ii ii TiiiiiiiiiiiiiiiiiTtiiie g 
ee] 7 
: ROS75 1 '+¢ ; 
3 Ro378 ! FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS ; 
> ROS78 1 i ABSTRACT: ; 
; ROS79 1 ! A page number carries with it not only its current value, but also 3 
; ROS580 1 ! codes as to how those values are to be displayed when they are finally 3 
; kROS81 1 ; output. It was decided to do it this way rather than have a separate : 
3 RO38s ' table so that the program TCX would have less trouble. : 
: ROSBL i ENVIRONMENT: Transportable BLISS 3 
; ROSBG ! AUTHOR: Rich Friday 

> RO588 1 i CREATION DATE: 1978 

; ROS89 1 ! 

: RORDe ' MODIFIED BY: 

: Roses 1 i 004 KAD00004 Keith Dawson 07-Mar-1983 

3 RO59$ 1 : Global edit of all modules. Updated module names, idents, 

3 Hit } : copyright dates. Changed require files to BLISS library. 

; ROd%G iee 

3 RO597 1 

3; ® 238 1 LITERAL 

3 . 5 ! page_sct_size = 4; 

: OR 1 LITERAL ‘Type of section: 

3; R § 1 sct_chapt e 3. ' Chapter section. 

3; OR 1 sct_index = ¢: ! Index section 

: OR 1 sct~append = 3; i Appendix section. 
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-Sep-1 CRUNOFF .SRC JPAGEN.REQ; 1 (1) 
LITERAL 
sct_low = 1, ! Lowest section type key. 
sct_high = 3; ! Highest section type key. 
MACRO 
sct_typ = 0, 0, 4, %, ! Section Type (zero if none). 
sct_page.d =Q, 4 4 %, |! Display code for page number. 
sct_sub_ page = 0, XOPVAL/2, XBPVAL/2, 0X. | Subpage, if any (zero if none). 
sct_number = 1, 0, XBPVAL, %, | Type of section number. 
sct_page = 2, 9, X%BPVAL, %, | Page number. 
sct_subpg.d = 3, Q, 4, %, ! Display code for subpages. 
sct.chapt.d = 3, 4, 4, %, | Display code for chapters. 
sct_appen.d = 3, 8 4, %, | Display code for appendices. 
sct_index-d = 3, 12, 4, %; ! Display code if indexes. 
MACRO 
sct_run_page = 3, XBPVAL/2, XBPVAL/2, 0 %; ! Running page number. 
MACRO 


page_definition = BLOCK Cpage_sct_size] %; 
: End of PAGEN.REQ 
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3 5 6 1 

3 36 6 1 SWITCHES LIST (NOREQUIRE); 

re. 6 1 

an. 631 1! 

; 6 § 1 ! MACROS: 

. 3 6 1! 

; 101 634 1! 

; 36 635 1 ! EQUATED SYMBOLS: 

e gH 

s 105 6 3 1 GLOBAL LITERA 

: 196 6 1 TAB = %0'11" : UNSIGNED (8), ' TAB character 

-~ 9 640 1 TMSCOL = F ' Default TMS column width 

; 108 0641 1 RINTES = 20°34" : UNSIGNED (8), ' RUNOFF escape sequence character 

; 109 ak: 1 MAXLST = 10, ! Maximum subindex depth 

3 19 Beez ! MAXLIN = 80; ! Maximum number of Lines per page 

; 1g 0645 1 LITERAL 

. 35 Bee8 1 TRUE = 1 

> 114 0647 1 FALSE = 6; 

s 1715 bees 1 

3 139 649 1! 

0 3y 0650 1 ! OWN STORAGE: 

s 118 0651 1! 

; 6119 beeg 1 

3 1¢9 06535 1 GLOBAL 

. Sar 0654 1 OUTIOB : $XPO_IOB (), ' Output file 10B 

3 i$ 0655 1 CMDBLK : SNDXTMD ' Command Line information block 
. 3 Be28 1 XPLBLK : $XPL_BLOCK ! Extended indexing information block 
: 4 0697 PAGEN : PAGE-DEFINITION; i Page reference block 

; 126 0659 1 GLOBAL ! Hashing buckets 

s Yer 1 BUCKET : SBUCKET_ARRAY (27, 27); ! There are 26 buckets for letters, and 
3 139 1 ! ' one for all other characters. 
; 1350 1 GLOBAL 

: 131 1 LSTPTR : REF $XE_BLOCK, 

.. § 1 INDLVL, ' Index level 

3 } : LSTSTK : VECTOR CMAXLST + 1]; ! Temporary entry stack 

s 139 1 GLOBAL ! Index pool variables 

5; 1 1 NDXPO INITIAL (0), ! Address of indexing pool 

s 137 1 NDXSGE : INITIAL (0) ! End of current segment. 

: 138 ! NDXSGF : INITIAL (0); 

; 140 1 GLOBAL ! Transaction pool variables 

3; 6161 1 XTNPOL : INITIAL (0), ' Address of transaction pool 

3 166 1 XTNCNT : INITIAL (0), ' Number of XTNTAB entries 

3; 14 1 XTNLSP : INITIAL (0), 

3 (144 1 XTNLSX : INITIAL (0), 

3; «6145 1 XTNSGP : INITIAL (0), 

3: «(146 1 XTNTAB : INITIAL (0), 'List of transaction numbers assigned 
; \ef : XPAGEN : INITIAL (0); 

3; «169 1 GLOBAL 

; 130 { BOOKID : INITIAL (0); ! Address of master index book id 


Ss 
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14-Sep-1 RUNOFF .SRCJNOXINI.BLI; 


GLOBAL ! Line and page counting variables 
PAGENO : INITIAL (0), ! Page wunper 
AL ° ' Usuable ors per page 
LCOUNT, ' Number of Lines in left column 
RCOUNT, ! Number of Lines in right column 
TCOUNT; ! Number of Lines in temp column 


i NOTE: The vectors and blockvectors below have two extra entries allocated. 


VIEW —OOODNOULS wT 
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———§ s~OOODOO0OSCOoO 
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GOoooooooooooo 
ui 


The zeroth ery is used to save she telltale strings for the column. 
The last entry is so that there will always be an available Line at 
the end of the column. 


The temp column is used during the generation of the index as a 
temporary save area for Lines that are moved from one column to 
another. It is also used during generation of the last page of 
two column output. 


LTYPE VECTOR MAXLIN + 2), ! Left column Line types 

LLINES : BLOCKVECTOR CMAXLIN + STRSK_D_BLNI, ! Left column string descriptors 

RTYPE : VECTOR XLIN + 2], ! Right column Line types 

RLINES : BLOCKVECTOR CMAXLIN + STRSK_D_BLNI, ! Right column string descriptors 
TTYPE : VECTOR XLIN + 2], ! Temp column Line types 

TLINES : BLOCKVECTOR CMAXLIN + 2, STRSK_D_BLN); ! Temp column string descriptors 


EXTERNAL REFERENCES: 


+ -— ----4 


SS 
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PROPOR 0 a a ot 
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ZSBTTL ‘GLOBAL ROUTINE NDXINI == Once o initialization’ 
GLOBAL ROUTINE NDXINI : NOVALUE = ei 


FUNCTIONAL DESCRIPTION: 


This routine is gat 


ed by the command Line interface routine 
to do once only initiali 


L 
tialization of global data structures. 


FORMAL PARAMETERS: 


None. 


IMPLICIT INPUTS: 


None. 


IMPLICIT OUTPUTS: 


CMDBLK Command Line information block is initialized 
Extended indexing attributes block is initialized 
Left column string descriptors are initialized 
Right column string descriptors are initialized 


String descriptors for right column on Last page 


= 
- 
— 
=z 
m 
wn 

eeeee 


TLINES 


ROUTINE VALUE: 
COMPLETION CODES: 


None. 


SIDE EFFECTS: 


None. 
BEGIN 
Initialize the command Line information block 
CMDBLK CNDX$V_OP 

SC_IN 


TIONS] = 0 
$STR_DE IT (DESCRIPTOR = CMDBLK [NDX$T_MASTER_BOOK], CLASS = DYNAMIC); 
SSTR-DESC_INIT (DESCRIPTOR = CMDBLK CNDX$T-INPUT FILE], CLASS = DYNAMIC); 
SSTR-DESC-INIT (DESCRIPTOR = CMDBLK CNDX$T-OUTPUT FILE, CLASS = DYNAMIC); 
SSTR-DESC-INIT (DESCRIPTOR = CMDBLK CNDX$T-REQUIRE_FILEJ, CLASS = DYNAMICS; 
SSTR-DESC-INIT (DESCRIPTOR = CMDBLK CNDX$T~COMMAND-LINE]. CLASS = DYNAMIC): 


Initialize related file sped) [ication descriptor. This string is 
set to the resultant input file Spee 'escesven by NDXINP for every 
input file which is not congatens ed to the previous one. Thus the 
related file name for a series of gencetensted input files is the 
resultant file name of the first file in the series. 


STR_DESC_INIT (DESCRIPTOR = CMDBLK CNDXST_RELATED_FILE], CLASS = DYNAMIC); 


Pracacacacacsacre 


Initialize extended indexing attributes block 


AX=11 Bliss-32 V4.0- 
RUNOFF .SRCJNDXINI.BL 


p+ 


NDXIN NDXINI == Once only initialization and global $ep-1984 01:02: AX-11 Bliss-32 V4.0-74 P 
V INbo GLOBAL ROUTINE NDXINI == Once only oer zat 16- ai 94:86:74 RUNOFF .SRCJNDXINI.BLI; — (3 
; 2 771 XPLBLK CXPLSV_VALID] = FAL extended jones ing attributes t 

: §Z rte SSTR-DESC INIT (DESCRIPTOR © XPLBLK [XPLST_SORTS, “cCLacs > DYWAMI CT: ye 

H rp ae SSTR_DESC_INIT (DESCRIPTOR = XPLBLK LXPL$T sont CLASS = OT YNAAT EDs 

: 26 775 

3 te ore Initialize string descriptors used to build a page of output 

: 266 778 iNCR I FROM 0 TO MAXLIN + 1 DO 

: 47 779 BEGIN 

; 48 780 SSTR_DESC_INIT (DESCRIPTOR = LLINES (.1, 0,0, 8 » CLASS = DYNAMIC); 

3 49 0781 SSTR_DESC_INIT (DESCRIPTOR = RLINES (.1, 0,0,0,0J, CLASS = DYNAMIC); 

3 29 gf ¢ 5 + heat saael (DESCRIPTOR = TLINES C.1, 0,0,0,03, CLASS = DYNAMIC); 

: 2¢ 0784 - 

3; 2 785 END; 


TITLE NDXINI NDXINI == Once only initialization and g 
oba 

-IDENT \V04-000\ 

-PSECT S$GLOBAL$,NOEXE,2 


00000 OUTIOB::.BLKB 244 
QOOOF4 CMDBLK::.BLKB 80 
00144 XPLBLK:: 20 
Op 128 PAGEN:: .BLKB 16 
00168 BUCKET::.BLKB 2916 
OCCC LSTPTR::.BLKB 4 
OCDO INDLVL::.BLKB 4 
OCD4 LSTSTK::.BLKB 44 
00000000 O00D00 NDXPOL::.LONG 0 3 
00000000 00D04 NDXSGE::.LONG 3 
00000000 O00D08 NDXSGF::.LONG r 
00000000 g0oe XTNPOL: : .LONG 3 
00000000 D10 XTNCNT::.LONG 3 
44 0D14 XTNLSP::.LONG 0 r 
88 0 0D18 XTNLSX::.LONG 8 3 
0000 Obs XTNSGP::.LONG F 
00000 +3 XTNTAB::.LONG 0 3 
444 4 D24 XPAGEN::.LONG 0 F 
0000 0D28 BOOKID::.LONG 8 : 
00000000 O00D2C PAGENO::.LONG ; 
80 A : 4 
054 L 4 
0038 RC 4 
30 T 4 
4 t 328 
Tia8 $38 
1260 R § 8 
1470 T g 
1638 T 656 
T 
T 
R 


Eto 


3; Routine Size: 


INI == Once onl 


c8 


162 bytes, 


52 00000000° 

20 A2 02080099 
28 A2 020E0000 
30. A 02060096 
38 A2 eneies 
48 A2 Se0ESOry 
40 A2 020E0000 
af 


5C A2 02CE0000 
60 


1 
1 
1 
1 
1 
1 
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Routine Base: 


NOX initialization an 
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4 A 

1544 C24 
sooooct . 

50 00000051 8 


SCODES + 0000 
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o 


RFS Sm owe Se 


BELSEVSSGSIFSSZS SG 
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CMDBLK+ 


AX-11 B 


XPLBLK+1 


SCODES,NOWRT ,2 


CMDBL 
M 


mexint. e Save R2 


C DBLK. 
434471936, Bp nerneeers 


Hivatat ee SSTRSDESC 
wSue7 1936 6 6 sstasnesc 
mBuirt 1 é. Pease naee 
vata: 6, SSTRSDESC 


in 


SSTRSDESC 


#3h41 986 S8e8 z, SSTREDESC 
ABee71936, ,SSTRSDESC 


SSTRSDE 


o-wr -~Uwr 
DP DS 
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Bliss-32 V4.0-74 
RUNOFF .SRCJNDXINI.BLI; 
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! End of module 


only initialization 


AX-11 Bliss-32 V4.0-74 
NDXINI == Once only 


DXINI == Onc 
I RUNOFF ..SRCJNDXINI.BLI; 


GLOBAL ROUTINE ND iniefatizat 


He 
? 1 END 
788 0 ELUDOM 


PSECT SUMMARY 


Name Bytes Attributes 
SGLOBALS 6344 NOVEC, ate RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 162 NOVEC,NOWR RD , EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
« SS « NOVEC, NOURT. “NORD | NOEXE, NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) 

Library Statistics 
ecceeee= Symbols -------- Pages Processing 

File Total Loaded Percent Mapped Time 

-$255$DUA28: CSYSLIBIXPORT.L32;1 590 130 22 252 00:00.2 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$:NOXINi/OBJ=OBJ$:NDXINI MSRCS$:NDXINI/UPDATE=(ENHS$:NDXINI) 


Size: 162 08°%8.9 + 6344 data bytes 

Run Time: : 

Elapsed Time: 01:9 4 

Lines/CPU Min: 1530 

Loxones/CPU-Aia: 89295 
Used: 155 pages 

Compt Lat ten Complete 


a; ee eee ne neem eee Ke SSS 


344 AH -BT13A- SE ENT CORPORATION 
VAX/VMS V4.0 ND PROPRIETARY. 


